option explicit	
Sub Main
dim broj as long, n as long, m as long, p as long
broj = inputbox("Unesi dvocifreni broj")
n = broj\10
m = broj mod 10
p = m*10 + n
msgbox(p)
End Sub